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**FILE**1D**TECOLBR TEC 
39 
TTTTTTTTT] EEEEEEEEEE cccccccc 000000 LL BBBBBBBB RRRRRRRR 
TTTTTTTTTT EEEEEEEEEE cecccccc 000000 LL BBBBBBBB RRRRRRRR 
TT EE cc 00 oO LL BB BB RR RR 
TT EE cc 00 0O LL BB BB RR RR 
TT EE cc 00 oO LL BB BB RR RR 
TT EE cc 00 0O LL BB BB RR RR 
TT EEEEEEEE cc 00 oO LL BBBBBBBB RRRRRRRR 
TT EEEEEEEE cc 00 0O LL BBBBBBBB RRRRRRRR 
TT EE cc 00 oO LL BB BB RR RR 
TT EE cc 00 oO LL BB BB RR RR 
TT EE cc 00 oO LL BB BB RR RR ees 
TT EE cc 00 00 LL BB BB RR RR cece 
TT EEEEEEEEEE ccccccce 000000 LLLLLLLLLL B88BBB8BB RR RR cece 
TT EEEEEEEEEE cccccccc 000000 LLLLLLLLLL BBBBBBBB RR RR eee 
LL III! SSSSSSSS 
LL 111111 SSSSSSSS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLELLLLLLLL IIIT! SSSSSSSS 
LLLLLLLLLL 111111 SSSSSSSS 
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TECOLBR TECO’S HELP command, etc. — I5 ~1384 9¢: 13:3 /VMS Agere cro V04-00 Page 1 


He ECO.SRCJTECOLBR.MAR;2 (1) 
| ITLE TE guar TECO's HELP command, etc. 
-IDENT /V 
: FRRRAAAARAAE EAE A AAA AAA AAAARAAAAAAAAAAAAAAAAAAAAARAAAARAAAARAAAAAAATAeE AAS 
3* — 
3* COPYRIGHT is) 1978, 1980, 1982, 1984 BY * 
:* DIGITAL L Qui PMENT CORPORATION, MAYNARD, MASSACHUSETTS. » 
: :* ALL RIGHTS RESERVED. * 
4 ® 
10 ;* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
0 11 3;* ONLY IN omy NCE WITH THE TERMS OF SUCH bi¢ a te NSE AND WITH THE * 
$ 3 z* INCLUSION OF THE re VE copyareut NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 ;* COPIES H+ yall va BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 14 ;* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
8 * TRANSFERRED. . 
$0 i$ 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
B88 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
806 3 * CORPORATION. : 
000 1 :* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
000 § 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 «54 is : 
0000 5 ITITITITITILITITITITTTTIIIITL ITIL TTT T LLL TLL LiL LLL ELLE 
44 ? -SBTTL TECO's HELP command, etc. 
$08 3 3; Last edit on 27-Jul-1983 by Mark Bramhall 
800 1 SHLPDEF : Librarian's HELP definitions 
4 § SLBRDEF ; Librarian definitions 
0000000A 099 : MAX_KEYS = 10 ; Maximum number of keys allowed 
000000F F 299 $ LIB_NAME_MAX = 255 ; Maximum size of a Library name 
000000F F 8 RNS_NAME _MAX = 255 ; Maximum size of a resultant name 
09 29 DEFAULT DISPLACEMENT WORD : 16 bits should always reach 
$8 -SHOW MEB 
0000 8 -PSECT TECOEXELBR, PAGE ,NOPIC,USR,OVR,REL,GBL, SHR, EXE,RD,NOWRT 
50 D 8 TSTL R : Error message printing call (-1)? 
4A 1 4 BLSS 40$ : Yes 
00°88 $8 TSTw *INDIR(R11) ; Active indirect command file? 
3 7 4 BNEQ : - do metas 
56 0000'°CB — 9 0 MOVZWL Ug ete cath) R6 3 “the size ° the command Line 
4 1 BEQL $ 3 fate t be a HELP command 
18 91 1 § CMPB RO, #27 : An ESCape? 
33 1 BEQL «=s«108 ; Yep go check for 2 ESCapes 
OA 9 1 4 CMPB 66 #10 ; F? 
12 1 5 BNEQ 2 3; Nope 
50 D QA 1A § MOVZBL # RO : Yep, check for CR/LF combination 
50° 00°AB 81 001D 10$:  CMPW  B*TEMP(R11), RO : The second ESCape or CR/LF? 
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; Count ; key character in desc 
>, #*A/A/+32 ; A possib 


0 
4) 
3 le lower case character? 
3. #*A/2/+32 34 ant be? 
$ Bu t isn't... 
5 ; Convert aye 


ase into upper case 
; A slash ("/" ? 


C 
for another key? 


CO's H 
CO's H 
1E 2 BNEQ 0$ 3; No 
27 84 MOVZWL Gdasroncers). R7 ; Get base of Q-register storage 
7 A ADDW pce ie 1), R 3; and add in the inuse amount 
Ce ob ee mt Hea | oot Heat —— 
3 our command character 
2} ego 020 8F CA BICL #30d8 38he 3200132 R1 ; and seirty convert to upeer cane 
0404548 BF 4 13 e 3 aay 50 @*A/HELP/ 5 3 this a HELP command? 
; Yes 
0 4 66 20$: CLRQ fe 3 hi 
6 4} e RSB 3 a Fits — 
2F 5 9 44 30$ CMPB RO, #*a'/' 3; A slash? 
8 12 O04? = 3 gnea S08 i Nope 
00 a ° 49 7 TSTW “ERRPOS (R11) ; Recovering from an error? 
F 4C 7 BLEQ ; Nope again 
OOSC'CF oes. cr 3 ef 73 40$: MOVAB $, PRINT_ROUT ; Set a special print routine 
0255'CF F 05 74 PUSHAQ 0$ 3; Set a null Line 
0000' CF 1 FB 0059 75 CALL #1, TECSOUT_ASCID ; and go output it 
0050 8F 00 Ob00°cP ec O25 76 novt #0, (SP), #0, #MAX_KEYS*8, KEY_DESC ; Clear out key descs 
0050'CF ‘CF 7D 0068 77 novo 0$, LIB_DESC : Set Library name to TECO 
zozgzi Osea eE 3 OF 78 mova 5908. Keeopes : Set key #1 to ERRORS 
9 O8'cF 03 00 $ 6 79 MOVL #3, KEY_DESC+ : Key #2 will be Length 3 
O26F'CF X 78 80 MOVAB ERROR_CODE R ; Get pointer to error code spot 
OO0c'CF 62 9 0 0 1 MOVAB (R2) KEY_DESC+8+4 : and set it into Y #2 
50 O0000000°EF 3C 00 ; MOVZWL L*ERRCOD,"R : Get the RADSO code into Low order 
1 8 8 C LRL R1 ; and clear a high order 
50. 51 50 00000640 8F pee 4 DIV #40*40, RO, R1, RO ; Divide for the first character 
82 51 40 er 81 909 5 ADDB3 #*A/A/=1, R1, (R2)+ : and set 
1 09C 6 CLRL R1 ; Clear a high order 
50 51 50 8 8 443 7 EDIV #40, RO, R1, RO : and divide for 2nd and 3rd 
82 51 40 8F 81 OOA : ADDB3 «#*A/A/-1, RI, (RQ) : Set the second character 
82 50 40 8F 1 0A8 ADDB #*A/A/-1, RO, (R2)+ 3; and the third 
00c5 1 8 oy BRW 170$ ; Go print the error message help 
56 05 (—(2 3 50$: SUBL #441, R6 ; Remove HELP (4) and ESCape or CR (1) 
OOSC'CF O000'CF SE 008 9 MOVAB TECSOUT _ASCID. PRINT_ROUT ; Set the standard print routine 
0D 3 7 9 3 mr R § #13 3 pee this the CR/LF entry? 
: Yes 
O253'CF 7F OQOBF 8 PUSHAQ 8. 3 No, ESCape, set a null Line 
0000' CF 1 FB 3 ; 4 —8 #1, TECSOUT_ASCID » and go output it 
0050 BF 00 GE.00 «eC OOCR «98 60S: MOVES #0, (SP), #0, #MAX_KEYS*6, KEY_DESC ; Clear out key descs 
54 — 44 $ 9 MOVAQ Kev _pesc-8. R4 Start a (biased) key desc pointer 
54 7 — 70$ ADDL #8, R Bump to the next key descr gter 
04 A4 5 A 808 MOVAB (R?), 4(R4) Set pointer to key in descriptor 
9 § $ DECL More command Line to look at? 
9 BLSS 9 ; Nope, done 
20 91 , a) )+, #32 Is this a <SP> or lower? 
ee 
HBP 188 
hoe 1 
1 12 
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: Yes, end of key (or ignoring junk) 
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—8 TECO's HELP command, etc. 18-SEp-198¢ 96:13:32 TECO. SRCSTECOLBR MAR: 2 . d) 
th FB 13 BNEQ 90$ : Nope, loop for more... 
— OF Hz CMPL (RG), #1 S Yep, ont nthing in the key? 
Of 115 BEQL 90$ ; Just continue if nty slash so far 
D 1 118 DECL (R4) 3; Else remove the s ag from old key 
§ bg 1 11 INCL Rg ; Put the slash back into the count 
dD 1 § 18 DECL R 3 and back pointer over it 
64 OD 1 119 1108: TSTL (R4) ; Are we within a key? 
gf 1 10A 120 BEQL 80$ 3_No, so don’t start a new key 
00000048 ' 8F Dd 1 121 1208: CMPL Be #KEY_DESC+<<MAX_KEYS=1>#8> : Too aeny keys? 
2 iF 01 1 : BLssu 708 ; No, loop for the next key... 
0004'DF  0000'CF D 3A 113 ; 130$: Loce — KEY_DESC, axey_pesc+é ; Find any equals separator 
3 None 
56 : 11F = 125 MOVa RO, R6 : Save length and pointer to remainder 
50 000° CF 1 1 § SUBL3 RO, KEY_DESC, RO : Find size before the equals 
0275'CF 0004'DF 0 CHP RO, OKET_DESC+4, 2808: Is t really /LIBRARY? 
; Nope 
OOOO'CF O008'CF 0048 BF 36 1 1 $ MOVC #<MAX_KEYS-1>*8, KEY_DESt+8. KEY DESC ; Shuffle up key descs 
: C 013¢ 130 CLRO 1635 : and clear the Last one 
dD 1 131 INCL R7 ; Bump pointer over the equals 
3 D 14 1 § DECL R6 ; and remove the equals from Length 
0 12 014 1 BNEQ 140$ : A real Library name remains 
56 fia 7D 014 134 mova 2908, R6 3; Else use the default default name 
0050'CF 7D 0149 135 1408: mova R6, LIB_DESC ; Set the new Library name into desc 
D 9 1 } $ eg (RP), #®A/=/ 5 pen ing this library name permanent? 
3 No 
$ be 13 1 3 INCL R7 ; Yes, bump pointer over 2nd equals 
D 15 1 DECL 6 ; and remove it from length 
0 12 015 140 BNEQ 150$ : A real Library name is still there 
56 0¢70" F 7D 133 141 MOVa 2908, R6 3; Else set the default default name 
OOFF 8F 00 3 2c 125 142 150$ MOVCS = R6, (R7), #0, MLIB_NAME_MAX, @DEF_LIB_DESC+4 ; Load new name 
SHEE Bland? SE HIE JET uae, BIN? AZ Mg EELUDGREES, — 
. ° : — 3; Defau e rar 
be 0050"Cr 0} 195 192 1908; teat Bevest. #4 > 3 ae the Library — exactly 4 chars? 
3 e 
5044548 8F aad \" of +4" 149 ok ii B_DESC+4, #*A/HELP/ ; Really want system HELP Library? 
3 No 
0050'CF 289°CF 7D 01 : 125 MOVa 300$, LIB_DESC : Yes, be good and update the name 
168°CF D4 01 150 180$: CLRL NS_DESC 3; Say no resultant name yot.<, 

‘CF «=6DF 601 151 PUSHAL ¢ $ ; Arg #3 is the Library type (HELP) 
98°CF DF 019 1 PUSHAL $ : Arg #2 is the access mode (read) 
58°CF DF OI19A 1 PUSHAL LIB_INDEX 3 ore #1 is the Librarian's index 

00000000 ° GF F 19 154 CALLS #3, 5 BRSINI_CONTROL ; Init the Library access 
55 1A 155 BLBC RO, 190$ 3; Abort if any error 
0168'CF FF 8F C QIA 1 MOVZWL #RNS_NAME_MAX, RNS_DESC ; Reset_the resultant name descriptor 
168'CF F QIAF 1 PUSHAW RNS_BESC ; Arg #7 is the resultant name Length 
168° CF F O18 1 PUSHAQ RNS_DESC ; Arg * is the resultant file name 
00 D 018 1 PUSHL # ; Arg #5 is the related name 
O2A0' CF F 0189 160 PUSHAQ 3308 ; Arg #4 is the default file name 
D Q1BD 161 PUSHL @# ; Arg #3 is the create option 
*CF F Q1B 1 PUSHAQ LIB_DESC ; Arg #2 is the tiprary file name 
‘CE DF OIC 1 PUSHAL ty INDEX ; Arg #1 is the Librarian's index 
00000000 ' GF eo: 1¢ 164 CALLS #7, G*LBRSOPEN 3 * the Library 
0 1C 165 LBC * Abort if any error 
50 00 ber E Q1D 1 § VAQ _KEY_DESC+<MAX_KEYS*8>, RO ; Point to the key descriptor array 
1b6 167 REPT RAK KEY ; 
1D 168 PUSRAQ -(RO) ; Arg #n is one of the key's 
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T R TECO’S HELP command, etc. 3 YAX/VMS Macro V04-00 Page 4 
v85 00 TEtO's HELP command: ete: 18-$Eb=1982 $Si18 72 AECUME ARES Ee NRA RO. ew 
1D 169 .ENDR MAX_KEYS 
F OID busHAd -C(RO) ; Arg #n is one of the key's 
F Q1D PUSHAQ =(RQ) ; Arg #n is one of the key's 
F QIDA PUSHAQ (RQ) ; Arg #n is one of the key's 
? F Q1DC PUSHAQ (RQ) ; Arg #n is one of the key's 
4 F Q1D PUSHAQ =(RQ) ; Arg #n is one of the key's 
4 F OIE PUSHAQ (RQ) ; Arg #n is one of the key's 
F is PUSHAQ =(RQ) : Arg #n is one of the key's 
7 F Q1 PUSHAQ =(RO) 3; Arg #n is one of the key's 
7 7F 168 PUSHAQ (RQ) 3; Arg #n is one of the key's 
7 7F OIE PUSHAQ -(RO) ; Arg is one of the key's 
00 OD QIEA 179 PUSHL #0 ; Arg #4 is th us¢ 
A DD OE 1 PUSHL PRINT_ROUT ; Arg #3 is the print routine 
DD OTF 10 PUSHL 45 : Arg . is the line widt 
005 6 DF OIF 17 PUSHAL NDEX Ar rg a is the Librarian's index 
0000000 ' GF E fe 1F 174 CALLS res KEYS ¢ LORseet HELPS Go print the HELP laternation 
1 00000000' GF BO O1FD 175 1908: MOVE GLBRSGL _RMSSTV, Save any RMS STV value 
D 4 178 ova ae 4 Save final exit gto tus 
58°CF OF Yo PUSHAL 16.1 : Arg #1 is the Librarian's index 
00000000 ' GF 9 F 178 CALLS a AERSCLOSE ; Close the Library 
OA E 1 17 BLBC ; Use previous error if any 
56 65 D 1 180 MOVL RO. > RO : Else use the status we just got 
57 Q0000000'GF oD 1 181 MOVL GrLORSGL RMSSTV, R7 ; with any RMS STV value 
3 9 ; 200$: BLBS 6, 22 ; Was everythin successtu \? 
50 0168'CF D § 1 aove nus DESC, RO : Get the resultant name desciptor 
B5 184 TSTW : Anything there? 
12 9 185 BNEQ — —48 so use it 
50 O050°CF 7D 1 § MOVa LIB_DESC, RO ; No, use the 2 name descriptor 
FFFE'8F Ro008000"e 2c 187 2108 MOVCS RO, (R1), #0, #FILSIZ-1- i, " FILSRT ; Load the filename buffer 
3 3 Cc 188 CLRB (R3) : _making sure that it's ASCIZ 
50 6 4 — 189 220$: mova R6, RO :; Set the final exit status 
0 2 139 RSB ; and exit 
0000 8 3 230$: .WORD “M<> : Error message print routine 
50 p? % 19 MOVL #1, RO 3; Preset success 
06 O08 BC OD 47 = 194 BITL @HLPSL_ Men ONE 3; Check for 
48 195 #HLPSM_KEYNAMLIN! - : a keyword name Line 
48 136 HLPSA_ 9 HERINEO 3 or additional iaternetion 
05 12 48 19 BNEQ ; Suppress either of those 
OOOO'CF 6C FA 4 138 CALLG (AP), TECSOUT_ASCID ; Else go print the — 
04 —3 240$: RET ; Return 
00000258 '010E0000' M 250$: .ASCID // : A null descriptor 
4F 43 45 54 00000263'010E0000' 8 7 260$: .ASCID /TECO/ ; Library name for error message help 
53 52 4F 52 52 45 0000026F '010E0000' i 5 270$:  .ASCID /ERRORS/ : Key #1 for error message help 
59 52 41 52 42 49 4C 2F 3 ; 280$: .ASCII ‘/LIBRARY' ; /LIBRARY qualifier 
4F 43 45 54 00000285'010E0000' 43 i 290$:  .ASCID /TECO/ : Default default Library name 
49 4C 50 4C 45 48 goeeacer"eteesere” i 11 300$: .ASCID /HELPLIB/ ; System HELP Library's real name 
9 1 
00000001 3 $18 310$: .LONG LBRSC_READ ; Access is for read 
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C 
00000003 i 13 320$:  .LONG LBRSC_TYP_HLP ; Library type is a HELP Library 
45 48 24 53 59 ; poopgess 2a8' } 059000" : i$ 330$:  .ASCID /SYSS$HELP:.HLB/ ; Library's default file name string 
1 
0000 ie -PSECT TECOCTL, QUAD ,NOPIC,USR,CON,REL,LCL,NOSHR,NOEXE,RD, WRT 
KEY_DESC: 3; Key d ipt 
00000050 é "BLKQ -MAX_KEYS wp dha si ai 
4 LIB_DESC: 3; Lib i 
00000058 & *aLKO Library name descriptor 
LIB_INDEX: : Librarian's ind 
0000005¢ 3 8 BLKL — 
90000060 ase 9 Or Pa ; Librarian output print routine addr 
3H eALIGN QUAD 
O¢0 5 DEF_LIB_DESC: : Default Library name descriptor 
00000068 ‘00000004 ' Boe § -LONG 20$-10$, 10$ 
SF 43 45 54 dD 8 10$: eASCII /TECO/ 
00000167 008 i 208: -BLKB LIB_NAME_MAX-<20$-10$> 
8 rh ALIGN QUAD 
188 8 RNS_DESC: ; Resultant name descriptor 
00000170" 000000F F ' 1g rf) «LONG 20$-10$, 10$ 
0000026F 170 8 10$: -BLKB RNS_NAME_MAX 
5a Oe 
8 6F 8 ERROR_CODE : ; Holder for TECO's error code 
00000272 of 29 -BLKB 3 
6 3 52 .END 
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DEF LIB_DESC 00000060 R 
RR Reeeeeee { 
Freon CODE Q000026F R 
ERRPOS eeereeee 
Foey eeeeeene x 
saber Reeeeeee x 
HLPSL_FLAGS = 8 4 
HLPSM_KEYNAMLIN = £ 
HLPSM_OTHERINFO = 000 
IR Reeekeee x 
KEY DESC 00000000 R a8 
LBRSCLOSE eeeeeeee =X 
LBRSC_READ a4 8 
LBRSC_TYP_HLP 0 
LBRSGET_HELP eeerenee Xx 
LBRSGL_RMSSTV eeeeenee x 6 
LBRSINT_ CONTROL ****** x 
RSOP eeeereee x 0 
N 0000 28 R 8 
LIB_INDEX 0000 R 
LIB_NAME_MAX = 4 FF 
YS = 000 BoA 
PRIRT_ROUT O000005C R 8 
PNT eereneee XX 
QRSTOR eeeeeeee x 3 
QZ eeeeeeee x 
RNS_DESC 00000168 R 0 
RNS_NAME_MAX = 000000F F 
TECSOUT_ASCID eeeneeee x 
reeeeeee x 
$e wmer eer e nme awme + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( 0.) 00 ¢ 9} NOPIC USR CON ABS’ LCL N hes NOEXE NO NOWRT NOVEC avis 
SABS$ 0000000 ( 93 1 ¢ ° NOPIC USR CON ABS LCL NOSHR’- EXE RD WRT NOVEC BYTE 
TECOEXELBR DROSS ( 693.) ¢ ( §°} NOPIC USR OVR REL GBL SHR EXE RD NOWRT NOVEC PAGE 
TECOCTL 00000 ( 626.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC QUAD 
eecnecesesenseeesonesees} 
H ; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 7 :00:00. 00. 
Command processing 1 :00:00. : 
Pass 1 1 ‘ 


— table sort :00: ‘ 

Symbol table output ; :00: ‘ 

Psect synopsis output :00:00. 6 
38 :00:04. 


Cross-reference output 
Assembler run totals 
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TECOLBR 
Vakote Macro Run Statistics Pe 


The york ing ssf Limit was 1900 pages. 
14 bytes (50 pages) of virtual memory were used to buffer fhe intermediate ggde. 
P re were f pages of 88 table space on eceige to hold 180 non-local - local symbols. 
§ sourc nes were read in Pass 1, produc ng object records in Pass 2. 

pages of virtual memory were used to define & macros. 


ee en . 


Macro Library name Macros defined 
_$255SDUAZ8: (SYSLIBISTARLET.MLB;2 —* 
218 GETS were required to define 5 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$: TECOLBR/OBJ=0BJ$: TECOLBR MSRC$: TECOLBR/UPDATE=(ENHS$: TECOLBR) 
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